home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Serious Demos / Crimson Demo / Crimson Demos / ListBox Demo / MainProg < prev    next >
Encoding:
Text File  |  1997-06-17  |  1.7 KB  |  68 lines  |  [TEXT/ttxt]
  1. *************************
  2. *                                              *
  3. *        Event - OnMenu                                    *
  4. *************************
  5. Procedure DemoForm.OnMenu(MenuId,ItemNo)
  6. Parameter MenuId As Integer
  7. Parameter ItemNo As Integer
  8.  
  9.     If (MenuId=FileMenu) And (ItemNo=QuitItem)
  10.         Do DemoForm.QuitBtn.Click
  11.     Endif
  12. Return
  13.  
  14. *************************
  15. *                                              *
  16. *        Event - QuitBtn.Click                 *
  17. *************************
  18. Procedure DemoForm.QuitBtn.Click()       
  19.               DemoForm.CloseWindow
  20.         End
  21. REturn    
  22.  
  23. *************************
  24. *                                              *
  25. *        Event - AddBtn.Click                    *
  26. *************************
  27. Procedure DemoForm.AddBtn.Click()
  28. Local InputValue As String [30]
  29.  
  30.     * Get the string in the Edititable Text field (InputBox) and Insert it at
  31.     * start of the list.
  32.  
  33.     InputValue=DemoForm.InputBox.Value
  34.     If InputValue<>""
  35.         DemoForm.ListBox.InsertRow(1,InputValue)
  36.     Endif
  37. Return
  38.  
  39. *************************
  40. *                                              *
  41. *        Event - DelBtn.Click                 *
  42. *************************
  43. Procedure DemoForm.DelBtn.Click()
  44. Local NextRow As Integer
  45.  
  46.     * Delete all  selected rows
  47.     NextRow=1
  48.     Repeat
  49.         NextRow=DemoForm.ListBox.GetSelected(NextRow)
  50.         If NextRow<>0
  51.             DemoForm.ListBox.DeleteRow(NextRow,1)
  52.         Endif
  53.     Until NextRow=0
  54. Return
  55.  
  56. ***************************
  57. *                                                  *
  58. *        Event - CheckBox.MouseDown *
  59. ***************************
  60. Procedure DemoForm.CheckBox.MouseDown
  61. Local State As Integer
  62.  
  63.     * Set multi-select  status of list box depending on the state of the
  64.     * check box 
  65.     State=DemoForm.CheckBox.Value
  66.     DemoForm.ListBox.MultiSel=State
  67. Return      
  68.